home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 34
/
64er_Magazin_Sonderheft_34_19xx_Markt__Technik_de_Disk_1_of_2_Side_B.d64
/
spg_demo timer
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
49 lines
10 ifpeek(49234)<>asc("s")thenload"spg.obj",8,1
20 sys49152
100 poke650,128:print"[147][155][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
110 print" *** sprite-graphics - timer-setup *** "
120 poke53280,6:poke53281,6:!tc0,4,8,8,15
130 !gr1;gx144;gy74;gc8;ge;gi
132 !tf15,3,24,22,160;tc15,3,24,22,2:gosub50000
140 py=0:yt=0
150 fori=0to7:dl(i)=peek(50911+i):!tp0,4+i,i":"dl(i):next
160 print"[155]select no.":print"[154] crsr up/down"
165 print"[155]change value":print"[154] + / -"
170 print"[155]move graphic":print"[154] f7/f8"
175 print"[155]exit program":print"[154] x"
200 !tn0,4,8,8;tx0,4,8,8,96,32;tr0,4+py,8,1;gy 74+yt
210 wait198,63:geti$:i=1
220 ifi$<>mid$("[145]+-[136][140]x",i,1)theni=i+1:ifi<8then220
230 ifi=8then210
240 onigoto250,260,800,900,300,350,400
250 py=py+1:ifpy>7thenpy=7
255 goto200
260 py=py-1:ifpy<0thenpy=0
265 goto200
300 yt=yt+1:ifyt>7thenyt=0
310 goto200
350 yt=yt-1:ifyt<0thenyt=7
360 goto200
400 !gr0:print"[147]new"
410 print"1000 for i=0[160]to 6:read[160]w:poke 50911+i,w:poke 50912+i,w:next"
420 print"1010 read w:poke 50918,w"
430 print"1020 data";:fori=0to6:printdl(i)"[157],";:next:printdl(7)
440 print"diese zeilen muessen sie in ihr programm";
450 print"einbinden, um die neuen delay-zeiten zu"
460 print"initialisieren.";:end
800 dl(py)=dl(py)+1:ifdl(py)>31thendl(py)=31
810 !tp0,4+py,"[155]"py":"dl(py)
820 poke50911+py,dl(py):ifpy<7thenpoke50919+py,dl(py):goto200
900 dl(py)=dl(py)-1:ifdl(py)<10thendl(py)=10
910 goto810
50000 rem testbild erzeugen
50010 !ds 130,68,40,16,40,68,130,1
50020 !dm 0
50030 fori=0to3:!db24*i,0,7,168:next
50035 !ds 255,0,255,0,255,0,255,0
50040 fori=0to3:!db8+24*i,0,7,168:next
50050 !ds 17,17,34,34,68,68,136,136
50060 !dm 3
50070 fori=0to3:!db16+24*i,0,7,168:next
50080 return